home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / skk / skk-tut.el.z / skk-tut.el
Encoding:
Text File  |  1998-05-21  |  30.3 KB  |  725 lines
  1. ;; SKK tutorial for SKK version 9.4 and later versions
  2. ;; Copyright (C) 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997
  3. ;; Masahiko Sato <masahiko@kuis.kyoto-u.ac.jp>
  4.  
  5. ;; Author: Masahiko Sato <masahiko@kuis.kyoto-u.ac.jp>
  6. ;; Maintainer: Mikio Nakajima <minakaji@osaka.email.ne.jp>
  7. ;; Version: $Id: skk-tut.el,v 1.1.1.1 1997/08/21 12:20:31 mrt Exp $
  8. ;; Keywords: japanese
  9. ;; Last Modified: $Date: 1997/08/21 12:20:31 $
  10.  
  11. ;; This program is free software; you can redistribute it and/or modify
  12. ;; it under the terms of the GNU General Public License as published by
  13. ;; the Free Software Foundation; either versions 2, or (at your option)
  14. ;; any later version.
  15.  
  16. ;; This program is distributed in the hope that it will be useful
  17. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19. ;; GNU General Public License for more details.
  20.  
  21. ;; You should have received a copy of the GNU General Public License
  22. ;; along with SKK, see the file COPYING.  If not, write to the Free
  23. ;; Software Foundation Inc., 59 Temple Place - Suite 330, Boston,
  24. ;; MA 02111-1307, USA.
  25.  
  26. ;;; Commentary:
  27.  
  28. ;; Following people contributed modifications to skk-tut.el
  29. ;; (Alphabetical order):
  30. ;;      Haru'yasu Ueda <hal@sics.se>
  31. ;;      Hideki Sakurada <sakurada@kusm.kyoto-u.ac.jp>
  32. ;;      Hitoshi SUZUKI <h-suzuki@ael.fujitsu.co.jp>
  33. ;;      IIDA Yosiaki <iida@sayla.secom-sis.co.jp>
  34. ;;      Koji Uchida <uchida@cfd.tytlabs.co.jp>
  35. ;;      Mikio Nakajima <minakaji@osaka.email.ne.jp>
  36. ;;      Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
  37. ;;      Toyonobu Yoshida <toyono-y@is.aist-nara.ac.jp>
  38. ;;      Wataru Matsui <matsui@gf.hm.rd.sanyo.co.jp>
  39. ;;      $BD@;VM&(B <jshen@cas.org>
  40.  
  41. ;;; Change log:
  42. ;; version 4.10 released 1997.2.4
  43. ;; version 3.9 released 1996.2.7
  44. ;; version 3.8 released 1995.5.13
  45. ;; version 3.7 released 1993.5.20
  46. ;; version 3.6 released 1992.9.19
  47. ;; version 3.5 released 1992.5.31
  48. ;; version 3.4 released 1992.4.12
  49. ;; version 3.3 released 1991.4.20
  50. ;; version 3.2 released 1990.4.15
  51. ;; version 2.2 released 1989.4.15
  52.  
  53. ;;; Code:
  54. (require 'skk-foreword)
  55. (require 'skk-vars)
  56. (require 'advice)
  57.  
  58. ;#SJT# This should be adjusted to XEmacs convention.
  59. ;      And patches to Murata-san should be SKK convention.
  60. (defvar skk-tut-file-alist
  61.   '(("Japanese" . (locate-data-file "skk/SKK.tut"))
  62.     ("English" . (locate-data-file "skk/SKK.tut.E")))
  63.   "*
  64. Alist of `(LANGUAGE . TUTORIAL-FILE)' pairs."
  65. )
  66.  
  67. (defvar skk-tut-file "/usr/local/share/skk/SKK.tut"
  68.   "*SKK $B%A%e!<%H%j%"%k$N%U%!%$%kL>!#(B
  69. The English version is SKK.tut.E." )
  70.  
  71. (defvar skktut-japanese-tut
  72.   (string= (file-name-nondirectory skk-tut-file) "SKK.tut")
  73.   "Non-nil $B$G$"$l$P!"%A%e!<%H%j%"%k$,F|K\8l$G$"$k$3$H$r<($9!#(B" )
  74.  
  75. (defvar skktut-use-face t
  76.   "*Non-nil $B$G$"$l$P!"%A%e!<%H%j%"%k$G(B face $B$rMxMQ$7$?I=<($r9T$J$&!#(B" )
  77.  
  78. (defvar skktut-section-face
  79.   (and skktut-use-face
  80.        (cond ((and (eq skk-background-mode 'mono) (skk-terminal-face-p))
  81.               'bold-italic )
  82.              ((eq skk-background-mode 'light)
  83.               (skk-make-face 'yellow/dodgerblue) )
  84.              (t (skk-make-face 'yellow/slateblue)) ))
  85.   "*$B%A%e!<%H%j%"%kCf$N%;%/%7%g%s$NI=<(ItJ,$N(B face$B!#(B" )
  86.  
  87. (defvar skktut-do-it-face
  88.   (and skktut-use-face
  89.        (cond ((and (eq skk-background-mode 'mono) (skk-terminal-face-p))
  90.               'bold )
  91.              ((eq skk-background-mode 'light)
  92.               (skk-make-face 'DarkGoldenrod) )
  93.              (t (skk-make-face 'LightGoldenrod)) ))
  94.   "*$B%A%e!<%H%j%"%kCf$N;X<(9`L\$NI=<(ItJ,$N(B face$B!#(B" )
  95.  
  96. (defvar skktut-question-face
  97.   (and skktut-use-face
  98.        (cond ((and (eq skk-background-mode 'mono) (skk-terminal-face-p))
  99.               'underline )
  100.              ((eq skk-background-mode 'light)
  101.               (skk-make-face 'Blue) )
  102.              (t (skk-make-face 'LightSkyBlue)) ))
  103.   "*$B%A%e!<%H%j%"%kCf$NLdBj$NI=<(ItJ,$N(B face$B!#(B" )
  104.  
  105. (defvar skktut-key-bind-face
  106.   (and skktut-use-face
  107.        (cond ((and (eq skk-background-mode 'mono) (skk-terminal-face-p))
  108.               'bold )
  109.              ((eq skk-background-mode 'light)
  110.               (skk-make-face 'Firebrick) )
  111.              (t (skk-make-face 'OrangeRed)) ))
  112.   "*$B%A%e!<%H%j%"%kCf$N%-!<%P%$%s%I$NI=<(ItJ,$N(B face$B!#(B" )
  113.  
  114. (defvar skktut-hint-face
  115.   (and skktut-use-face
  116.        (cond ((and (eq skk-background-mode 'mono) (skk-terminal-face-p))
  117.               'italic )
  118.              ((eq skk-background-mode 'light)
  119.               (skk-make-face 'CadetBlue) )
  120.              (t (skk-make-face 'Aquamarine)) ))
  121.   "*$B%A%e!<%H%j%"%kCf$N%R%s%H$NI=<(ItJ,$N(B face$B!#(B
  122. $B8=:_$N$H$3$m!"(BSKK.tut.E $B$G$7$+;HMQ$5$l$F$$$J$$!#(B" )
  123.  
  124. (defconst skktut-problem-numbers 37 "SKK $B%A%e!<%H%j%"%k$NLdBj?t!#(B")
  125.  
  126. (defconst skktut-tut-jisyo "~/skk-tut-jisyo"
  127.   "SKK $B%A%e!<%H%j%"%kMQ$N%@%_!<<-=q!#(B" )
  128.  
  129. (defconst skktut-init-variables-alist
  130.   '((skk-init-file . "")
  131.     (skk-special-midashi-char-list . (?> ?< ??))
  132.     (skk-mode-hook . nil)
  133.     (skk-auto-fill-mode-hook . nil)
  134.     (skk-load-hook . nil)
  135.     (skk-search-prog-list . ((skk-search-jisyo-file skktut-tut-jisyo 0 t)))
  136.     (skk-jisyo . "~/skk-tut-jisyo")
  137.     (skk-keep-record . nil)
  138.     (skk-kakutei-key . "\C-j")
  139.     (skk-use-vip . nil)
  140.     (skk-use-viper . nil)
  141.     (skk-henkan-okuri-strictly . nil)
  142.     (skk-henkan-strict-okuri-precedence . nil)
  143.     (skk-auto-okuri-process . nil)
  144.     (skk-process-okuri-early . nil)
  145.     (skk-egg-like-newline . nil)
  146.     (skk-kakutei-early . t)
  147.     (skk-delete-implies-kakutei . t)
  148.     (skk-allow-spaces-newlines-and-tabs . t)
  149.     (skk-convert-okurigana-into-katakana . nil)
  150.     (skk-delete-okuri-when-quit . nil)
  151.     (skk-henkan-show-candidates-keys . (?a ?s ?d ?f ?j ?k ?l))
  152.     (skk-ascii-mode-string . " SKK")
  153.     (skk-hirakana-mode-string . " $B$+$J(B")
  154.     (skk-katakana-mode-string . " $B%+%J(B")
  155.     (skk-zenkaku-mode-string . " $BA41Q(B")
  156.     (skk-abbrev-mode-string . " a$B$"(B")
  157.     (skk-echo . t)
  158.     (skk-use-numeric-conversion . t)
  159.     ;;(skk-char-type-vector . nil)
  160.     ;;(skk-standard-rom-kana-rule-list . nil)
  161.     (skk-rom-kana-rule-list . nil)
  162.     (skk-postfix-rule-alist . (("oh" "$B%*(B" . "$B$*(B")))
  163.     (skk-previous-candidate-char . nil)
  164.     ;;(skk-input-vector . nil)
  165.     ;;(skk-zenkaku-vector . nil)
  166.     ;;(skk-use-face . t)
  167.     ;;(skk-henkan-face)
  168.     ;;(skk-use-color-cursor . t)
  169.     ;;(skk-default-cursor-color . "Black")
  170.     ;;(skk-hirakana-cursor-color . t)
  171.     ;;(skk-katakana-cursor-color . t)
  172.     (skk-zenkaku-cursor-color . "gold") 
  173.     (skk-ascii-cursor-color . "ivory4")
  174.     (skk-abbrev-cursor-color . "royalblue")
  175.     (skk-report-set-cursor-error . t)
  176.     (skk-auto-insert-paren . nil)
  177.     (skk-japanese-message-and-error . nil)
  178.     (skk-ascii-mode-map . nil)
  179.     (skk-j-mode-map . nil)
  180.     (skk-zenkaku-mode-map . nil)
  181.     (skk-abbrev-mode-map . nil)
  182.     (skk-jisyo-save-count . nil)
  183.     (skk-byte-compile-init-file . nil)
  184.     (skk-count-private-jisyo-candidates-exactly . nil)
  185.     (skk-compare-jisyo-size-when-saving . nil)
  186.     (skk-auto-start-henkan . nil)
  187.     (skk-insert-new-word-function . nil)
  188.     
  189.     (skk-date-ad . 1)
  190.     (skk-number-style . 1)
  191.     (skk-gadget-load-hook . nil)
  192.     
  193.     (skk-input-by-code-menu-keys1 . (?a ?s ?d ?f ?g ?h ?q ?w ?e ?r ?t ?y))
  194.     (skk-input-by-code-menu-keys2 . (?a ?s ?d ?f ?g ?h ?j ?k ?l ?q ?w ?e ?r ?t ?y ?u))
  195.     (skk-kcode-load-hook . nil)
  196.     
  197.     ;;(skk-num-type-list . nil)
  198.     (skk-numeric-conversion-float-num . nil)
  199.     (skk-uniq-numerals . t)
  200.     (skk-num-load-hook . nil)
  201.     
  202.     (skk-dabbrev-like-completion . nil)
  203.     (skk-comp-load-hook . nil))
  204.   "skk.el $B$N%f!<%6!<JQ?t$N%j%9%H!#(B" )
  205.  
  206. (defvar skktut-right-answer nil "$BLdBj$N@52r$NJ8;zNs!#(B")
  207. (defvar skktut-problem-count 0 "SKK $B%A%e!<%H%j%"%k$N8=:_$NLdBjHV9f!#(B")
  208. (defvar skktut-tutorial-end nil "SKK $B%A%e!<%H%j%"%k$N=*N;$r<($9%U%i%0!#(B")
  209. (defvar skktut-tutorial-map nil "SKK $B%A%e!<%H%j%"%k$N$?$a$N%-!<%^%C%W!#(B")
  210.  
  211. (defvar skktut-original-buffer nil
  212.   "skk-tutorial $B$r8F$s$@$H$-$N%P%C%U%!L>!#(B" )
  213.  
  214. (defvar skktut-skk-on nil
  215.   "Non-nil $B$G$"$l$P!"(Bskk-tutorial $B$r5/F0$7$?$H$-$K(B SKK $B$,4{$K5/F0$5$l$F$$$?$3$H$r<($9!#(B" )
  216.  
  217. ;; -- macros
  218. (defmacro skktut-message (japanese english &rest arg)
  219.   ;; skktut-japanese-tut $B$,(B non-nil $B$@$C$?$i(B JAPANESE $B$r(B nil $B$G$"$l$P(B ENGLISH 
  220.   ;; $B$r%(%3!<%(%j%"$KI=<($9$k!#(B
  221.   ;; ARG $B$O(B message $B4X?t$NBh#20z?t0J9_$N0z?t$H$7$FEO$5$l$k!#(B
  222.   (append (list 'message (list 'if 'skktut-japanese-tut japanese english))
  223.           arg ))
  224.       
  225. (defmacro skktut-error (japanese english &rest arg)
  226.   ;; skktut-japanese-tut $B$,(B non-nil $B$@$C$?$i(B JAPANESE $B$r(B nil $B$G$"$l$P(B ENGLISH 
  227.   ;; $B$r%(%3!<%(%j%"$KI=<($7!"%(%i!<$rH/@8$5$;$k!#(B
  228.   ;; ARG $B$O(B error $B4X?t$NBh#20z?t0J9_$N0z?t$H$7$FEO$5$l$k!#(B
  229.   (append (list 'error (list 'if 'skktut-japanese-tut japanese english))
  230.           arg ))
  231.  
  232. (defmacro skktut-yes-or-no-p (japanese english)
  233.   (list 'yes-or-no-p (list 'if 'skktut-japanese-tut japanese english)) )
  234.  
  235. ;;;###autoload
  236. (defun skk-tutorial (&optional query-language)
  237.   "SKK $B%A%e!<%H%j%"%k$r5/F0$9$k!#(B"
  238.   (interactive "P")
  239.   (if query-language
  240.       (let ((lang
  241.          (completing-read "Language: " skk-tut-file-alist)))
  242.     (setq skk-tut-file (cdr (assoc lang skk-tut-file-alist)))
  243.     (message "SKK tutorial language set to %s until you exit Emacs."
  244.                  lang)))
  245.   (let ((inhibit-quit t))
  246.     (if (not (< 9.4 (string-to-number (skk-version))))
  247.         (error "skk.el version 9.4 or later is required")
  248.       (skktut-pre-setup-tutorial)
  249.       (skktut-setup-jisyo-buffer)
  250.       (skktut-setup-working-buffer)
  251.       (skktut-setup-problem-buffer)
  252.       (skktut-setup-answer-buffer) )))
  253.  
  254. (defun skktut-save-buffers-kill-emacs (&optional query)
  255.   (interactive "P")
  256.   (if (skktut-yes-or-no-p "Tutorial $B$b(B Emacs $B$b=*N;$7$^$9!#$h$m$7$$$G$9$M!)(B "
  257.                           "Quit tutorial and kill emacs? " )
  258.       (progn (skktut-quit-tutorial 'now)
  259.              (save-buffers-kill-emacs query) )))
  260.  
  261. (defun skktut-tutorial-again ()
  262.   (interactive)
  263.   (if (skktut-yes-or-no-p "$B:G=i$+$i(B Tutorial $B$r$d$jD>$7$^$9!#$h$m$7$$$G$9$M!)(B "
  264.                           "Quit tutorial and start from question 1 again? " )
  265.       (progn (skktut-quit-tutorial 'now)
  266.              (skk-tutorial) )))
  267.  
  268. (defun skktut-mode ()
  269.   (interactive)
  270.   (if (eq skktut-problem-count 1)
  271.       (skktut-error "$B$3$N%-!<$O$^$@;H$($^$;$s(B"
  272.                     "Cannot use this key yet" )
  273.     (if skk-mode
  274.         (skk-j-mode-on)
  275.       (add-hook 'before-make-frame-hook 'skktut-before-move-to-other-frame)
  276.       (skk-j-mode-on)
  277.       (define-key minibuffer-local-map "\C-j" 'skk-mode)
  278.       ;;(define-key minibuffer-local-map "\C-m" 'skk-newline)
  279.       )))
  280.  
  281. (defun skktut-kakutei (&optional word)
  282.   (interactive)
  283.   (if (eq skktut-problem-count 1)
  284.       (skktut-error "$B$3$N%-!<$O$^$@;H$($^$;$s(B"
  285.                     "Cannot use this key yet" )
  286.     (skk-kakutei word) ))
  287.  
  288. (defun skktut-error-command ()
  289.   (interactive)
  290.   (switch-to-buffer-other-window "*$BEz(B*") )
  291.  
  292. (defun skktut-quit-tutorial (&optional now)
  293.   (interactive)
  294.   (if (or now (skktut-yes-or-no-p "$BK\Ev$K%A%e!<%H%j%"%k$r$d$a$^$9$+(B? "
  295.                                   "Quit tutorial? " ))
  296.       (let ((inhibit-quit t))
  297.         (delete-other-windows)
  298.         ;; $B:FEY%A%e!<%H%j%"%k$r;H$($k$h$&$K!"FbItJQ?t$r=i4|2=$7$F$*$/!#(B
  299.         (setq skktut-japanese-tut nil
  300.               skktut-problem-count 0
  301.               skktut-right-answer nil
  302.               skktut-tutorial-end nil
  303.               skktut-tutorial-map nil )
  304.         (remove-hook 'minibuffer-setup-hook 'skktut-localize-and-init-variables)
  305.         (remove-hook 'before-make-frame-hook
  306.                      'skktut-before-move-to-other-frame )
  307.         (ad-remove-advice 'other-frame 'before 'skktut-ad)
  308.         (ad-remove-advice 'select-frame 'before 'skktut-ad)
  309.         (ad-activate 'other-frame)
  310.         (ad-activate 'select-frame)
  311.         (if (featurep 'mule)
  312.             (if (fboundp 'skktut-save-set-henkan-point)
  313.                 (skktut-change-func-def 'skk-set-henkan-point
  314.                                         'skktut-save-set-henkan-point ))
  315.           (if (fboundp 'skktut-nemacs-set-henkan-point)
  316.               (skktut-change-func-def 'skk-set-henkan-point
  317.                                       'skktut-nemacs-set-henkan-point )))
  318.         (if (fboundp 'skktut-save-abbrev-mode)
  319.             (skktut-change-func-def 'skk-abbrev-mode
  320.                                     'skktut-save-abbrev-mode ))
  321.         (fmakunbound 'skktut-save-set-henkan-point)
  322.         (fmakunbound 'skktut-save-abbrev-mode)
  323.         (fmakunbound 'skktut-nemacs-set-henkan-point)
  324.         ;; skk-jisyo ;; for debugging
  325.         (let ((buff (get-file-buffer skktut-tut-jisyo)))
  326.           (if buff
  327.               (progn
  328.                 (set-buffer buff)
  329.                 (set-buffer-modified-p nil)
  330.                 (kill-buffer buff))))
  331.         (kill-buffer " *skk-tutorial*")
  332.         (kill-buffer "*$BEz(B*")
  333.         (kill-buffer "*$BLd(B*")
  334.         ;;(skk-kill-local-variables)
  335.         (switch-to-buffer skktut-original-buffer)
  336.         ;; SKK $B$r5/F0$;$:$K$$$-$J$j(B 
  337.         ;; skk-tutorial $B$r<B9T$7$?$H$-$K(B skk-jisyo $B%P%C%U%!$,:n$i$l$J$$$N$G(B 
  338.         ;; skk-setup-jisyo-buffer $B$G%(%i!<$H$J$j!"(BEmacs $B$N=*N;$,$G$-$J$/(B
  339.         ;; $B$J$k$N$G(B SKK $B%b!<%I$r0lEY5/$3$7$F$*$/!#(B
  340.         (skk-mode 1)
  341.         ;; $B%A%e!<%H%j%"%k5/F0D>A0$K3+$$$F$$$?%P%C%U%!$G!"(Bskk-mode $B$r5/F0$7$F(B
  342.         ;; $B$$$?$i!"$=$N>uBV$K$7$F!"%A%e!<%H%j%"%k$r=*N;$9$k!#(B
  343.         ;; skk-jisyo  ;; for debugging
  344.         (or skktut-skk-on
  345.             (skk-mode -1) ))))
  346.  
  347. (defun skktut-answer-window ()
  348.   (interactive)
  349.   (let (p)
  350.     (save-match-data
  351.       (goto-char (point-max))
  352.       (search-backward "\n>>")
  353.       (forward-char 1)
  354.       (setq skktut-right-answer
  355.             (skk-buffer-substring (+ 3 (point))
  356.                                   (skk-save-point (end-of-line) (point)) ))
  357.       (switch-to-buffer-other-window "*$BEz(B*")
  358.       (insert ">> \n\n")
  359.       (setq p (point))
  360.       (if skktut-japanese-tut
  361.           (insert "* $BEz$,$G$-$?$i!X(BC-x n$B!Y(B; $BESCf$G$d$a$k$K$O!X(BC-x q$B!Y(B; "
  362.                   "$B%9%-%C%W$9$k$K$O!X(BC-x s$B!Y(B *" )
  363.         (insert "* For next question `C-x n'; to quit `C-x q'; "
  364.                 "to skip this question `C-x s' *" ))
  365.       (if skktut-use-face
  366.           (put-text-property p (point) 'face skktut-key-bind-face) )
  367.       (put-text-property p (point) 'read-only t)
  368.       (goto-char (+ (point-min) 3)) )))
  369.  
  370. (defun skktut-next-window ()
  371.   (interactive)
  372.   (save-match-data
  373.     (let (user-ans)
  374.       (skk-save-point
  375.         (goto-char (point-min))
  376.         (end-of-line)
  377.         (skip-chars-backward " \t")
  378.         (setq user-ans (skk-buffer-substring (+ 3 (point-min)) (point))) )
  379.       (if (not (string= skktut-right-answer user-ans))
  380.           (progn
  381.             (skktut-message "$BEz$,0c$$$^$9!#$b$&0lEY$d$C$F$_$F2<$5$$(B"
  382.                             "Wrong.  Try again")
  383.             (ding) )
  384.         (skktut-erase-buffer)
  385.         (message "")
  386.         (other-window 1)
  387.         (setq skktut-problem-count (1+ skktut-problem-count))
  388.         (skktut-get-page skktut-problem-count)
  389.         (if (>= skktut-problem-count (1+ skktut-problem-numbers))
  390.             (skktut-quit-tutorial t)
  391.           (skktut-answer-window) )))))
  392.  
  393. (defun skktut-skip-problem (arg)
  394.   (interactive "p")
  395.   (skktut-erase-buffer)
  396.   (setq skktut-problem-count (+ skktut-problem-count arg))
  397.   (if (< skktut-problem-count 1) (setq skktut-problem-count 1))
  398.   (if (> skktut-problem-count skktut-problem-numbers)
  399.       (setq skktut-problem-count skktut-problem-numbers))
  400.   (if (and (>= skktut-problem-count 3) (not skk-j-mode))
  401.       (skktut-mode) )
  402.   (other-window 1)
  403.   (skktut-get-page skktut-problem-count)
  404.   (if skktut-tutorial-end (skktut-quit-tutorial 'now) (skktut-answer-window)) )
  405.  
  406. (defun skktut-set-henkan-point-tmp ()
  407.   (interactive)
  408.   (if skk-j-mode
  409.       (skktut-error "$B$+$J(B/$B%+%J%b!<%I$G$O!"1QBgJ8;z$O$^$@;H$($^$;$s(B"
  410.                     "Cannot use upper case character in kana/katakana mode" )
  411.     (insert (if skk-zenkaku-mode
  412.                 (concat (char-to-string 163)
  413.                         (char-to-string (+ last-command-char 128)))
  414.               last-command-char))))
  415.  
  416. (defun skktut-abbrev-mode-tmp ()
  417.   (interactive)
  418.   (if skk-j-mode
  419.       (skktut-error "$B$3$N%-!<$O$^$@;H$($^$;$s(B"
  420.                     "Cannot use this key yet" )
  421.     (insert last-command-char)))
  422.  
  423. (defun skktut-get-page (page)
  424.   (save-match-data
  425.     (with-current-buffer " *skk-tutorial*"
  426.       (let (pos)
  427.         (goto-char (point-min))
  428.         (search-forward "--\n" nil t page)
  429.         (if (looking-at ";")
  430.             (progn (forward-char 3)
  431.                    (setq pos (point))
  432.                    (end-of-line)
  433.                    (save-excursion
  434.                      (eval-region pos (point) nil) )
  435.                    (forward-char 1) ))
  436.         (if (not skktut-tutorial-end)
  437.             (progn
  438.               (setq pos (point))
  439.               (search-forward "\n>>")
  440.               (end-of-line)
  441.               (copy-to-buffer "*$BLd(B*" pos (point)) ))))
  442.     (if (>= page 12)
  443.         (skktut-enable) )
  444.     (setq mode-line-buffer-identification
  445.           (concat "$B#S#K#K%A%e!<%H%j%"%k(B: $B!NLd(B "
  446.                   (int-to-string page)
  447.                   "$B!O(B $B!J;D$j(B "
  448.                   (int-to-string (- skktut-problem-numbers page))
  449.                   "$BLd!K(B"))
  450.     (set-buffer-modified-p nil)
  451.     (sit-for 0) ))
  452.  
  453. (defun skktut-disable ()
  454.   (if (not (fboundp 'skktut-save-set-henkan-point))
  455.       (progn
  456.         (skktut-change-func-def 'skktut-save-set-henkan-point
  457.                                 'skk-set-henkan-point )
  458.         (skktut-change-func-def 'skk-set-henkan-point
  459.                                 'skktut-set-henkan-point-tmp )))
  460.   (if (not (fboundp 'skktut-save-abbrev-mode))
  461.       (progn
  462.         (skktut-change-func-def 'skktut-save-abbrev-mode 'skk-abbrev-mode)
  463.         (skktut-change-func-def 'skk-abbrev-mode 'skktut-abbrev-mode-tmp) )))
  464.  
  465. (defun skktut-enable ()
  466.   (if (fboundp 'skktut-save-abbrev-mode)
  467.       (progn (skktut-change-func-def 'skk-abbrev-mode 'skktut-save-abbrev-mode)
  468.              (fmakunbound 'skktut-save-abbrev-mode) ))
  469.   (if (fboundp 'skktut-save-set-henkan-point)
  470.       (progn (skktut-change-func-def 'skk-set-henkan-point
  471.                                      'skktut-save-set-henkan-point )
  472.              (fmakunbound 'skktut-save-set-henkan-point) )))
  473.  
  474. (defun skktut-pre-setup-tutorial ()
  475.   (setq skktut-original-buffer (current-buffer)
  476.         skktut-skk-on skk-mode
  477.         skktut-problem-count 1 ))
  478.   
  479. (defadvice other-frame (before skktut-ad activate)
  480.   (skktut-before-move-to-other-frame) )
  481.   
  482. (defadvice select-frame (before skktut-ad activate)
  483.   (skktut-before-move-to-other-frame) )
  484.   
  485. (add-hook 'minibuffer-setup-hook 'skktut-localize-and-init-variables)
  486.  
  487. (defun skktut-setup-jisyo-buffer ()
  488.   ;; setup skktut-tut-jisyo buffer.
  489.   (set-buffer (get-buffer-create " *skk-tut-jisyo*"))
  490.   (setq case-fold-search nil
  491.         buffer-file-name (expand-file-name skktut-tut-jisyo) )
  492.   (buffer-disable-undo (current-buffer))
  493.   (insert (concat ";; okuri-ari entries.\n"
  494.                   "$B$[$C(Bs /$BM_(B/\n"
  495.                   "$B$D$+(Bt /$B;H(B/\n"
  496.                   "$B$?$C(Bs /$BC#(B/\n"
  497.                   "$B$7(Bt /$BCN(B/\n"
  498.                   "$B$&$4(Bk /$BF0(B/\n"
  499.                   ";; okuri-nasi entries.\n"
  500.                   "Greek /$B&!(B/$B&"(B/$B&#(B/$B&$(B/$B&%(B/$B&&(B/$B&'(B/$B&((B/$B&)(B/$B&*(B/$B&+(B/$B&,(B/$B&-(B/$B&.(B/$B&/(B/$B&0(B/"
  501.                   "$B&1(B/$B&2(B/$B&3(B/$B&4(B/$B&5(B/$B&6(B/$B&7(B/$B&8(B/\n"
  502.                   "Russia /$B'!(B/$B'"(B/$B'#(B/$B'$(B/$B'%(B/$B'&(B/$B''(B/$B'((B/$B')(B/$B'*(B/$B'+(B/$B',(B/$B'-(B/$B'.(B/$B'/(B/$B'0(B/"
  503.                   "$B'1(B/$B'2(B/$B'3(B/$B'4(B/$B'5(B/$B'6(B/$B'7(B/$B'8(B/$B'9(B/$B':(B/$B';(B/$B'<(B/$B'=(B/$B'>(B/$B'?(B/$B'@(B/$B'A(B/\n"
  504.                   "greek /$B&A(B/$B&B(B/$B&C(B/$B&D(B/$B&E(B/$B&F(B/$B&G(B/$B&H(B/$B&I(B/$B&J(B/$B&K(B/$B&L(B/$B&M(B/$B&N(B/$B&O(B/$B&P(B/"
  505.                   "$B&Q(B/$B&R(B/$B&S(B/$B&T(B/$B&U(B/$B&V(B/$B&W(B/$B&X(B/\n"
  506.                   "russia /$B'Q(B/$B'R(B/$B'S(B/$B'T(B/$B'U(B/$B'V(B/$B'W(B/$B'X(B/$B'Y(B/$B'Z(B/$B'[(B/$B'\(B/$B'](B/$B'^(B/$B'_(B/$B'`(B/"
  507.                   "$B'a(B/$B'b(B/$B'c(B/$B'd(B/$B'e(B/$B'f(B/$B'g(B/$B'h(B/$B'i(B/$B'j(B/$B'k(B/$B'l(B/$B'm(B/$B'n(B/$B'o(B/$B'p(B/$B'q(B/\n"
  508.                   "$B$$$A$*$/(B /$B0l2/(B/\n"
  509.                   "$B$*$*$5$+(B /$BBg:e(B/\n"
  510.                   "$B$+$J(B /$B2>L>(B/\n"
  511.                   "$B$+$s$8(B /$B4A;z(B/$B44;v(B/$B4F;v(B/\n"
  512.                   "$B$,$/$7$e$&(B /$B3X=,(B/\n"
  513.                   "$B$-(B /$B4p(B/$B5-(B/$B5$(B/$BLZ(B/$B5"(B/\n"
  514.                   "$B$-$4$&(B /$B5-9f(B/$B!"(B/$B!#(B/$B!$(B/$B!%(B/$B!&(B/$B!'(B/$B!((B/$B!)(B/$B!*(B/$B!+(B/$B!,(B/$B!-(B/$B!.(B/$B!/(B/"
  515.                   "$B!0(B/$B!1(B/$B!2(B/$B!3(B/$B!4(B/$B!5(B/$B!6(B/$B!7(B/$B!8(B/$B!9(B/$B!:(B/$B!;(B/$B!<(B/$B!=(B/$B!>(B/$B!?(B/$B!@(B/$B!A(B/"
  516.                   "$B!B(B/$B!C(B/$B!D(B/$B!E(B/$B!F(B/$B!G(B/$B!H(B/$B!I(B/$B!J(B/$B!K(B/$B!L(B/$B!M(B/$B!N(B/$B!O(B/$B!P(B/$B!Q(B/$B!R(B/$B!S(B/"
  517.                   "$B!T(B/$B!U(B/$B!V(B/$B![(B/$B!X(B/$B!Y(B/$B!Z(B/$B![(B/$B!\(B/$B!](B/$B!^(B/$B!_(B/$B!`(B/$B!a(B/$B!b(B/$B!c(B/$B!d(B/$B!e(B/$B!f(B/"
  518.                   "$B!g(B/$B!h(B/$B!i(B/$B!j(B/$B!k(B/$B!l(B/$B!m(B/$B!n(B/$B!o(B/$B!p(B/$B!q(B/$B!r(B/$B!s(B/$B!t(B/$B!u(B/$B!v(B/$B!w(B/$B!x(B/$B!y(B/"
  519.                   "$B!z(B/$B!{(B/$B!|(B/$B!}(B/$B!~(B/$B"!(B/$B""(B/$B"#(B/$B"$(B/$B"%(B/$B"&(B/$B"'(B/$B"((B/$B")(B/$B"*(B/$B"+(B/$B",(B/$B"-(B/"
  520.                   "$B".(B/\n"
  521.                   "$B$-$g$&$H(B /$B5~ET(B/\n"
  522.                   "$B$3$&$Y(B /$B?@8M(B/\n"
  523.                   "$B$4(B /$B8^(B/$B8_(B/$B8`(B/$B8a(B/$B8b(B/$B8c(B/$B8d(B/$B8e(B/$B8f(B/$B8g(B/$B8h(B/$B8i(B/$B8j(B/$B8k(B/$B8l(B/$B8m(B/$B8n(B/"
  524.                   "$B8o(B/\n"
  525.                   "$B$5$$(B /$B:Y(B/$B:G(B/$B:F(B/\n"
  526.                   "$B$5$$$7$g(B /$B:G=i(B/\n"
  527.                   "$B$5$$$H$&(B /$B:XF#(B/\n"
  528.                   "$B$5$H$&(B /$B:4F#(B/\n"
  529.                   "$B$7$e$&$j$g$&(B /$B=*N;(B/\n"
  530.                   "$B$8$7$g(B /$B<-=q(B/$BCO=j(B/\n"
  531.                   "$B$8$s$3$&(B /$B?M8}(B/\n"
  532.                   "$B$;$s$?$/(B /$BA*Br(B/$B@vBu(B/\n"
  533.                   "$B$=$&(B /$BAv(B/\n"
  534.                   "$B$@$$(B /$BBg(B/$BBh(B/$BBe(B/\n"
  535.                   "$B$F$-(B /$BE*(B/$BE((B/$BE)(B/$BE,(B/$BE&(B/\n"
  536.                   "$B$H$&(B /$BEl(B/\n"
  537.                   "$B$H$&$[$/(B /$BElKL(B/\n"
  538.                   "$B$H$&$m$/(B /$BEPO?(B/\n"
  539.                   "$B$H$&$m$/(B /$BEPO?(B/\n"
  540.                   "$B$I$&(B /$BF0(B/\n"
  541.                   "$B$K$e$&$j$g$/(B /$BF~NO(B/\n"
  542.                   "$B$R$3$&$-(B /$BHt9T5!(B/\n"
  543.                   "$B$X$s$+$s(B /$BJQ49(B/\n"
  544.                   "$B$[$/(B /$BKL(B/\n"
  545.                   "$B$_$g$&$8(B /$BL>;z(B/\n"
  546.                   "$B$h$&$$(B /$BMF0W(B/$BMQ0U(B/\n" ))
  547.   (skk-setup-jisyo-buffer)
  548.   (skktut-localize-and-init-variables) )
  549.  
  550. (defun skktut-setup-working-buffer ()
  551.   (save-match-data
  552.     (let (sexp)
  553.       (set-buffer (get-buffer-create " *skk-tutorial*"))
  554.       ;; " *skk-tut-jisyo*" $B%P%C%U%!$N(B skk.el $B$NJQ?t$r%P%C%U%!%m!<%+%k2=$7!"(B
  555.       ;; $B=i4|2=$9$k!#(B
  556.       (skktut-localize-and-init-variables)
  557.       (erase-buffer)
  558.       (insert-file-contents skk-tut-file)
  559.       (goto-char (point-min))
  560.       ;; $B%A%e!<%H%j%"%k$,F|K\8l$+1Q8l$+$r%A%'%C%/!#(B
  561.       (setq skktut-japanese-tut (looking-at ";; SKK Japanese"))
  562.       (while (re-search-forward "^>> \\((.+)\\)$" nil t nil)
  563.         (setq sexp (skk-buffer-substring (match-beginning 1) (match-end 1)))
  564.         (delete-region (match-beginning 1) (match-end 1))
  565.         (insert (eval (car (read-from-string sexp)))) )
  566.       (goto-char (point-min))
  567.       (if skktut-use-face
  568.           (skktut-colored) ))))
  569.  
  570. (defun skktut-setup-problem-buffer ()
  571.   (switch-to-buffer (get-buffer-create "*$BLd(B*"))
  572.   (erase-buffer)
  573.   (setq skktut-tutorial-map (make-keymap))
  574.   (if (featurep 'xemacs)
  575.       (map-keymap
  576.        #'(lambda (key ignored)
  577.        (define-key skktut-tutorial-map key 'skktut-error-command))
  578.        skktut-tutorial-map)
  579.     (fillarray (nth 1 skktut-tutorial-map) 'skktut-error-command))
  580.   (use-local-map skktut-tutorial-map)
  581.   (skktut-get-page skktut-problem-count)
  582.   (delete-other-windows)
  583.   (split-window-vertically nil)
  584.   (other-window 1)
  585.   (enlarge-window (- (window-height (selected-window)) 20)) )
  586.  
  587. (defun skktut-setup-answer-buffer ()
  588.   (switch-to-buffer (get-buffer-create "*$BEz(B*"))
  589.   ;; "*$BEz(B*" $B%P%C%U%!$N(B skk.el $B$NJQ?t$r%P%C%U%!%m!<%+%k2=$7!"=i4|2=$9$k!#(B
  590.   (skktut-localize-and-init-variables)
  591.   (local-set-key "\C-j" 'skktut-kakutei)
  592.   (local-set-key "\C-x\C-c" 'skktut-save-buffers-kill-emacs)
  593.   (local-set-key "\C-x\C-j" 'skktut-mode)
  594.   (local-set-key "\C-xj" 'skktut-error-command)
  595.   (local-set-key "\C-xn" 'skktut-next-window)
  596.   (local-set-key "\C-xq" 'skktut-quit-tutorial)
  597.   (local-set-key "\C-xs" 'skktut-skip-problem)
  598.   (local-set-key "\C-xt" 'skktut-tutorial-again)
  599.   (skktut-disable)
  600.   (auto-fill-mode -1)
  601.   (switch-to-buffer-other-window "*$BLd(B*")
  602.   (goto-char (point-max))
  603.   (beginning-of-line)
  604.   (skktut-answer-window)
  605.   (message "") )
  606.  
  607. (defun skktut-localize-and-init-variables ()
  608.   ;; $B%f!<%6!<$,(B skk.el $B$NJQ?t$r%+%9%?%^%$%:$7$F$$$k2DG=@-$,$"$k$N$G!"%+%l%s%H(B
  609.   ;; $B%P%C%U%!$N(B skk.el $B$NJQ?t$r%P%C%U%!%m!<%+%k2=$7!"=i4|2=$9$k!#(B
  610.   (mapcar
  611.    (function
  612.     (lambda (alist)
  613.       (let ((v (car alist)))
  614.     (make-local-variable v)
  615.     (set v (cdr alist)))))
  616.    skktut-init-variables-alist)
  617.   (if (string= (buffer-name) "*$BEz(B*")
  618.       (load-library "skk"))
  619.   (make-local-variable 'skk-mode-invoked)
  620.   (setq skk-mode-invoked 'invoked))
  621.  
  622. (defun skktut-erase-buffer ()
  623.   (let ((inhibit-read-only t))
  624.     (set-text-properties (point-min) (point-max) nil) )
  625.   (erase-buffer) )
  626.  
  627. (defun skktut-before-move-to-other-frame ()
  628.   (if (skktut-yes-or-no-p "Tutorial $B$r=*N;$7$^$9!#$h$m$7$$$G$9$M!)(B "
  629.                           "Quit tutorial?" )
  630.       (skktut-quit-tutorial 'now)
  631.     (skktut-error "Tutorial $B$r=*N;$;$:$KB>$N%U%l!<%`$K0\$k$3$H$O$G$-$^$;$s!#(B"
  632.                   "Quit tutorial or you cannot move to other frame" )))
  633.  
  634. (defun skktut-colored ()
  635.   (while (re-search-forward "$B"'(B\\([^$B![(B $B$!(B-$B$s%!(B-$B%s(B]+\\)" nil t nil)
  636.     (put-text-property (match-beginning 1) (match-end 1) 'face
  637.                        'highlight ))
  638.   (goto-char (point-min))
  639.   (while (re-search-forward "^==.+==$" nil t nil)
  640.     (put-text-property (match-beginning 0) (match-end 0)
  641.                        'face skktut-section-face ))
  642.   (goto-char (point-min))
  643.   (while (re-search-forward "^!!.+" nil t nil)
  644.     (put-text-property (match-beginning 0) (match-end 0)
  645.                        'face skktut-do-it-face ))
  646.   (goto-char (point-min))
  647.   (while (re-search-forward "^>> \\(.+\\)$" nil t nil)
  648.     (put-text-property (match-beginning 1) (match-end 1)
  649.                        'face skktut-question-face ))
  650.   (if skktut-japanese-tut
  651.       nil
  652.     (goto-char (point-min))
  653.     (while (re-search-forward "Hint: .*$" nil t nil)
  654.       (put-text-property (match-beginning 0) (match-end 0)
  655.                          'face skktut-hint-face ))))
  656.  
  657. (defun skktut-change-func-def (old new &optional save)
  658.   ;; $B4X?t(B OLD $B$NDj5A$r(B NEW $B$GCV$-JQ$($k!#(B
  659.   ;; $B%*%W%7%g%J%k0z?t$N(B SAVE $B$r;XDj$9$k$H!"(BOLD $B$NDj5A$r(B SAVE $B$KJ]B8$9$k!#(B
  660.   (if save (defalias save (symbol-function old)))
  661.   (defalias old (symbol-function new)) )
  662.  
  663. ;; The following function is tricky, since they are executed by "eval-region".
  664.  
  665. (defun skktut-today ()
  666.   (save-match-data
  667.     (let (str p)
  668.       (widen)
  669.       (search-forward "\n>> ")
  670.       (if (re-search-forward "$B!V(B.*$B!W(B" (skk-save-point (end-of-line) (point)) t)
  671.           (delete-region (match-beginning 0) (match-end 0)) )
  672.       (setq p (point)
  673.             str (concat "$B!V$-$g$&$O!"(B" (skk-date) "$B$G$9!#!W(B") )
  674.       (insert str)
  675.       (narrow-to-region (point-min) (point))
  676.       (if skktut-use-face
  677.           (put-text-property p (point) 'face skktut-question-face) ))))
  678.  
  679. (defun skktut-end-tutorial ()
  680.   (message "")
  681.   (switch-to-buffer "*$BLd(B*")
  682.   (delete-other-windows)
  683.   (erase-buffer)
  684.   (goto-char (point-min))
  685.   (if skktut-japanese-tut
  686.       (insert
  687.        (concat "SKK $B%A%e!<%H%j%"%k$O$3$l$G=*$j$G$9!#(B\n\n"
  688.                "SKK $B$K4X$9$k<ALd!"%3%a%s%H!"(Bbug report $BEy$O(B\n\n"
  689.                "\tskk@kuis.kyoto-u.ac.jp\n\n"
  690.                "$BKx$*Aw$j2<$5$$!#$J$*!"$3$N%"%I%l%9$O(B SKK $B%a%$%j%s%0%j%9%H$N(B"
  691.                "$B%"%I%l%9$G$9!#(B\n"
  692.                "$B2sEz$ODL>o$3$N%"%I%l%9$KBP$7$F$J$5$l$k$N$G!"%a%s%P!<$G$J$$(B"
  693.                "$BJ}$O$=$N;]$rL@(B\n"
  694.                "$B5-$7$F%a!<%k$r$*Aw$j$/$@$5$$!#(B SKK $B%a%$%j%s%0%j%9%H$X;22C4u(B"
  695.                "$BK>$N>l9g$O(B\n\n"
  696.                "\tskk-join@kuis.kyoto-u.ac.jp\n\n"
  697.                "$B$X%a!<%k$r$*Aw$j$/$@$5$$(B\n\n"
  698.                "!! $B:G8e$K(B <return> $B%-!<$r2!$7$F$/$@$5$$!#(B" ))
  699.     (insert
  700.      (concat "Now we end the SKK tutorial.\n\n"
  701.              "Please send comments, questions and bug reports on SKK to:\n\n"
  702.              "\tskk@kuis.kyoto-u.ac.jp\n\n"
  703.              "This is the address of the SKK mailing list, and normally the "
  704.              "responces\n"
  705.              "will be sent only to the ML members.  So, if you are not a ML "
  706.              "member,\n"
  707.              "please say so in your mail.  If you are interested in joining "
  708.              "the SKK ML,\n"
  709.              "send a mail to:\n\n"
  710.              "\tskk-join@kuis.kyoto-u.ac.jp\n\n"
  711.              "!! Hit <return> key when you are ready." )))
  712.   (if skktut-use-face
  713.       (save-match-data
  714.         (goto-char (point-min))
  715.         (re-search-forward "^!!.+" nil t nil)
  716.         (put-text-property (match-beginning 0) (match-end 0)
  717.                            'face skktut-do-it-face )))
  718.   (while (not (= ?\C-m (read-char)))
  719.     (skktut-message "<return> $B%-!<$r2!$7$F$/$@$5$$(B" "Hit <return> key")
  720.     (ding) )
  721.   (setq skktut-tutorial-end t) )
  722.  
  723. (provide 'skk-tut)
  724. ;;; skk-tut.el ends here
  725.